{ Invokable interface IAPS }

unit APSIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  { Invokable interfaces must derive from IInvokable }
  IAPS = interface(IInvokable)
  ['{27772967-6525-4624-B44F-B2BBC5F160AB}']
  Function Test:WideString;stdcall;

    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IAPS));

end.
